Option Explicit
'OҲ ChartEventCls
Public WithEvents myCht As Chart
Private Sub myCht_DragPlot()
    MsgBox "xsdQ즲" & Me.myCht.Name & "WFC"
End Sub

'зǼҲ
Dim myChtCls As New ChartEventCls
Sub InitializeChartEvent()
    Set myChtCls.myCht = Worksheets(1).ChartObjects(1).Chart
End Sub
